home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD Fun House 1
/
CD Fun House (Wayzata Technology).iso
/
•The School House•
/
Astromacronomer •••
/
BASIC Runtime
/
BASIC Runtime.rsrc
/
CODE_9.txt
< prev
next >
Wrap
Text File
|
1986-09-30
|
39KB
|
697 lines
# near model CODE resource
# jump table entries: 3304-3310 (7 of them)
export_413:
00000000 526D FE36 addq.w [A5 - 0x1CA], 1
00000004 4A01 tst.b D1
00000006 6660 bne +0x62 /* 00000068 */
00000008 426D F388 clr.w [A5 - 0xC78]
0000000C 4EAD 00C2 jsr [A5 + 0xC2 /* export_20 */]
00000010 6714 beq +0x16 /* 00000026 */
00000012 43ED ED88 lea.l A1, [A5 - 0x1278]
00000016 6100 0306 bsr +0x308 /* 0000031E */
0000001A 611E bsr +0x20 /* 0000003A */
0000001C 302D F37C move.w D0, [A5 - 0xC84]
00000020 6100 0744 bsr +0x746 /* 00000766 */
00000024 600E bra +0x10 /* 00000034 */
label00000026:
00000026 526D F388 addq.w [A5 - 0xC78], 1
0000002A 610E bsr +0x10 /* 0000003A */
0000002C 302D F37C move.w D0, [A5 - 0xC84]
00000030 6602 bne +0x4 /* 00000034 */
00000032 60F2 bra -0xC /* 00000026 */
label00000034:
00000034 536D FE36 subq.w [A5 - 0x1CA], 1
export_414:
00000038 4E75 rts
fn0000003A:
0000003A 2F08 move.l -[A7], A0
0000003C 6100 030C bsr +0x30E /* 0000034A */
00000040 A00C syscall GetFileInfo/PBHGetFInfo/HGetFileInfo
00000042 6618 bne +0x1A /* 0000005C */
00000044 206D F37E movea.l A0, [A5 - 0xC82]
00000048 7200 moveq.l D1, 0x00
0000004A 1218 move.b D1, [A0]+
0000004C 5341 subq.w D1, 1
label0000004E:
0000004E 1018 move.b D0, [A0]+
00000050 4EAD 0062 jsr [A5 + 0x62 /* export_8 */]
00000054 51C9 FFF8 dbf D1, -0xA /* 0000004E */
00000058 4EAD 006A jsr [A5 + 0x6A /* export_9 */]
label0000005C:
0000005C 207C 0000 000A movea.l A0, 0xA /* '\n' */
00000062 A03B syscall Delay
00000064 205F movea.l A0, [A7]+
00000066 4E75 rts
label00000068:
00000068 4E56 FED4 link A6, -0x012C
0000006C 7E24 moveq.l D7, 0x24
0000006E 4EAD 044A jsr [A5 + 0x44A /* export_133 */]
00000072 7E28 moveq.l D7, 0x28
00000074 4EAD 044A jsr [A5 + 0x44A /* export_133 */]
00000078 4EAD 045A jsr [A5 + 0x45A /* export_135 */]
0000007C 3602 move.w D3, D2
0000007E 47ED ED81 lea.l A3, [A5 - 0x127F]
00000082 4EAD 00C2 jsr [A5 + 0xC2 /* export_20 */]
00000086 0C40 0029 cmpi.w D0, 0x29 /* ')' */
0000008A 6708 beq +0xA /* 00000094 */
0000008C 4EAD 02C2 jsr [A5 + 0x2C2 /* export_84 */]
00000090 4EAD 02CA jsr [A5 + 0x2CA /* export_85 */]
label00000094:
00000094 7E29 moveq.l D7, 0x29
00000096 4EAD 044A jsr [A5 + 0x44A /* export_133 */]
0000009A 2F08 move.l -[A7], A0
0000009C 4EAD 086A jsr [A5 + 0x86A /* export_265 */]
000000A0 4EAD 0082 jsr [A5 + 0x82 /* export_12 */]
000000A4 0C43 0002 cmpi.w D3, 0x2
000000A8 6400 03BC bcc +0x3BE /* 00000466 */
000000AC 41ED ED88 lea.l A0, [A5 - 0x1278]
000000B0 45EE FED4 lea.l A2, [A6 - 0x12C]
000000B4 4A43 tst.w D3
000000B6 6718 beq +0x1A /* 000000D0 */
000000B8 2248 movea.l A1, A0
000000BA 2648 movea.l A3, A0
000000BC 7200 moveq.l D1, 0x00
000000BE 121B move.b D1, [A3]+
000000C0 2601 move.l D3, D1
000000C2 E441 asr D1.w, 2
label000000C4:
000000C4 10DB move.b [A0]+, [A3]+
000000C6 51CB FFFC dbf D3, -0x6 /* 000000C4 */
000000CA 4EAD 0B8A jsr [A5 + 0xB8A /* export_365 */]
000000CE 6008 bra +0xA /* 000000D8 */
label000000D0:
000000D0 43FA 0146 lea.l A1, [PC + 0x146 /* 00000218, value 0x6100 'a\0', cstring "" */]
000000D4 4EAD 0B82 jsr [A5 + 0xB82 /* export_364 */]
label000000D8:
000000D8 43ED ED81 lea.l A1, [A5 - 0x127F]
000000DC 2B49 ECA6 move.l [A5 - 0x135A], A1
000000E0 1B7C 0005 ECFB move.b [A5 - 0x1305], 0x5
000000E6 4A2A 0000 tst.b [A2 + 0x0]
000000EA 6700 00F6 beq +0xF8 /* 000001E2 */
000000EE 4A38 028E tst.b [0x0000028E /* ROM85 */]
000000F2 6A00 0040 bpl +0x42 /* 00000134 */
000000F6 3038 03F6 move.w D0, [0x000003F6 /* FSFCBLen */]
000000FA 5240 addq.w D0, 1
000000FC 6636 bne +0x38 /* 00000134 */
000000FE 302A 0006 move.w D0, [A2 + 0x6]
00000102 6100 0116 bsr +0x118 /* 0000021A */
00000106 266D F37E movea.l A3, [A5 - 0xC82]
0000010A 7000 moveq.l D0, 0x00
0000010C 1013 move.b D0, [A3]
0000010E 5200 addq.b D0, 1
00000110 1680 move.b [A3], D0
00000112 17BC 003A 0000 move.b [A3 + D0.w], 0x3A /* ':' */
00000118 4EAD 087A jsr [A5 + 0x87A /* export_267 */]
0000011C 2F0B move.l -[A7], A3
0000011E 47EA 000A lea.l A3, [A2 + 0xA]
00000122 4EAD 087A jsr [A5 + 0x87A /* export_267 */]
00000126 2B4B ECA6 move.l [A5 - 0x135A], A3
0000012A 265F movea.l A3, [A7]+
0000012C 4EAD 0F52 jsr [A5 + 0xF52 /* export_486 */]
00000130 6000 00B0 bra +0xB2 /* 000001E2 */
label00000134:
00000134 47EA 000A lea.l A3, [A2 + 0xA]
00000138 4240 clr.w D0
0000013A 1013 move.b D0, [A3]
0000013C 0C2B 003A 0001 cmpi.b [A3 + 0x1], 0x3A /* ':' */
00000142 6600 000C bne +0xE /* 00000150 */
00000146 528B addq.l A3, 1
00000148 5300 subq.b D0, 1
0000014A 1680 move.b [A3], D0
0000014C 6000 0024 bra +0x26 /* 00000172 */
label00000150:
00000150 5340 subq.w D0, 1
00000152 6B1E bmi +0x20 /* 00000172 */
00000154 204B movea.l A0, A3
00000156 5288 addq.l A0, 1
label00000158:
00000158 0C18 003A cmpi.b [A0]+, 0x3A /* ':' */
0000015C 6706 beq +0x8 /* 00000164 */
0000015E 51C8 FFF8 dbf D0, -0xA /* 00000158 */
00000162 600E bra +0x10 /* 00000172 */
label00000164:
00000164 4EAD 087A jsr [A5 + 0x87A /* export_267 */]
00000168 47ED ED81 lea.l A3, [A5 - 0x127F]
0000016C 4EAD 0FCA jsr [A5 + 0xFCA /* export_501 */]
00000170 6070 bra +0x72 /* 000001E2 */
label00000172:
00000172 4EAD 087A jsr [A5 + 0x87A /* export_267 */]
00000176 42AD F37E clr.l [A5 - 0xC82]
0000017A 422D F386 clr.b [A5 - 0xC7A]
0000017E 42AD F39C clr.l [A5 - 0xC64]
00000182 426D F388 clr.w [A5 - 0xC78]
00000186 3B6A 0006 F382 move.w [A5 - 0xC7E], [A2 + 0x6]
0000018C 41ED F36C lea.l A0, [A5 - 0xC94]
00000190 7009 moveq.l D0, 0x09
00000192 A260 syscall FSDispatch/HFSDispatch, flags=2
00000194 4EAD 0842 jsr [A5 + 0x842 /* export_260 */]
00000198 202D F39C move.l D0, [A5 - 0xC64]
0000019C 41ED ED88 lea.l A0, [A5 - 0x1278]
000001A0 4250 clr.w [A0]
000001A2 2B48 F37E move.l [A5 - 0xC82], A0
000001A6 3B7C FFFF F388 move.w [A5 - 0xC78], 0xFFFF
000001AC 426D F384 clr.w [A5 - 0xC7C]
000001B0 426D F386 clr.w [A5 - 0xC7A]
label000001B4:
000001B4 0C80 0000 0002 cmpi.l D0, 0x2
000001BA 671E beq +0x20 /* 000001DA */
000001BC 2B40 F39C move.l [A5 - 0xC64], D0
000001C0 422D ED88 clr.b [A5 - 0x1278]
000001C4 41ED F36C lea.l A0, [A5 - 0xC94]
000001C8 7009 moveq.l D0, 0x09
000001CA A260 syscall FSDispatch/HFSDispatch, flags=2
000001CC 4EAD 0842 jsr [A5 + 0x842 /* export_260 */]
000001D0 611A bsr +0x1C /* 000001EC */
000001D2 202D F3D0 move.l D0, [A5 - 0xC30]
000001D6 6000 FFDC bra -0x22 /* 000001B4 */
label000001DA:
000001DA 302A 0006 move.w D0, [A2 + 0x6]
000001DE 613A bsr +0x3C /* 0000021A */
000001E0 610A bsr +0xC /* 000001EC */
label000001E2:
000001E2 205F movea.l A0, [A7]+
000001E4 4E5E unlink A6
000001E6 536D FE36 subq.w [A5 - 0x1CA], 1
000001EA 4E75 rts
fn000001EC:
000001EC 48E7 E0F8 movem.l -[A7], D0,D1,D2,A0,A1,A2,A3,A4
000001F0 47ED ED88 lea.l A3, [A5 - 0x1278]
000001F4 7000 moveq.l D0, 0x00
000001F6 1013 move.b D0, [A3]
000001F8 5200 addq.b D0, 1
000001FA 1680 move.b [A3], D0
000001FC 17BC 003A 0000 move.b [A3 + D0.w], 0x3A /* ':' */
00000202 2F2D ECA6 move.l -[A7], [A5 - 0x135A]
00000206 4EAD 087A jsr [A5 + 0x87A /* export_267 */]
0000020A 2B5F ECA6 move.l [A5 - 0x135A], [A7]+
0000020E 4EAD 0FCA jsr [A5 + 0xFCA /* export_501 */]
00000212 4CDF 1F07 movem.l D0,D1,D2,A0,A1,A2,A3,A4, [A7]+
00000216 4E75 rts
00000218 0000 6100 ori.b D0, 0x0
// begin alternate branch 0000021A-00000222
fn0000021A:
0000021A 6100 012E bsr +0x130 /* 0000034A */
0000021E 426D ED88 clr.w [A5 - 0x1278]
// end alternate branch 0000021A-00000222
fn0000021A: // (misaligned)
0000021C 012E 426D btst [A6 + 0x426D], D0
00000220 ED88 lsl D0, 6
00000222 426D F388 clr.w [A5 - 0xC78]
00000226 3B40 F382 move.w [A5 - 0xC7E], D0
0000022A A007 syscall GetVolInfo/PBHGetVInfo/HGetVInfo
0000022C 4EAD 0842 jsr [A5 + 0x842 /* export_260 */]
00000230 4E75 rts
export_415:
00000232 526D FE36 addq.w [A5 - 0x1CA], 1
00000236 43ED ED88 lea.l A1, [A5 - 0x1278]
0000023A 6100 00E2 bsr +0xE4 /* 0000031E */
0000023E 2F08 move.l -[A7], A0
00000240 426D F388 clr.w [A5 - 0xC78]
00000244 6100 0104 bsr +0x106 /* 0000034A */
00000248 42AD F39C clr.l [A5 - 0xC64]
0000024C 3038 03F6 move.w D0, [0x000003F6 /* FSFCBLen */]
00000250 5240 addq.w D0, 1
00000252 6604 bne +0x6 /* 00000258 */
00000254 A015 syscall SetVol/PBHSetVol/HSetVol
00000256 6004 bra +0x6 /* 0000025C */
label00000258:
00000258 7003 moveq.l D0, 0x03
0000025A A260 syscall FSDispatch/HFSDispatch, flags=2
label0000025C:
0000025C 6100 0508 bsr +0x50A /* 00000766 */
00000260 205F movea.l A0, [A7]+
00000262 536D FE36 subq.w [A5 - 0x1CA], 1
00000266 4E75 rts
export_416:
00000268 526D FE36 addq.w [A5 - 0x1CA], 1
0000026C 43ED ED88 lea.l A1, [A5 - 0x1278]
00000270 6100 00AC bsr +0xAE /* 0000031E */
00000274 2F08 move.l -[A7], A0
00000276 426D F388 clr.w [A5 - 0xC78]
0000027A 6100 00CE bsr +0xD0 /* 0000034A */
0000027E A009 syscall Delete/PBHDelete/HDelete
00000280 6100 04E4 bsr +0x4E6 /* 00000766 */
00000284 205F movea.l A0, [A7]+
00000286 536D FE36 subq.w [A5 - 0x1CA], 1
0000028A 4E75 rts
export_417:
0000028C 526D FE36 addq.w [A5 - 0x1CA], 1
00000290 4E56 FF00 link A6, -0x0100
00000294 43ED ED88 lea.l A1, [A5 - 0x1278]
00000298 6100 0084 bsr +0x86 /* 0000031E */
0000029C 3E3C F9FD move.w D7, 0xF9FD
000002A0 4EAD 044A jsr [A5 + 0x44A /* export_133 */]
000002A4 43EE FF00 lea.l A1, [A6 - 0x100]
000002A8 6174 bsr +0x76 /* 0000031E */
000002AA 2449 movea.l A2, A1
000002AC 97CB sub.l A3, A3
000002AE 4EAD 00C2 jsr [A5 + 0xC2 /* export_20 */]
000002B2 6710 beq +0x12 /* 000002C4 */
000002B4 4EAD 02C2 jsr [A5 + 0x2C2 /* export_84 */]
000002B8 4EAD 02CA jsr [A5 + 0x2CA /* export_85 */]
000002BC 4EAD 02FA jsr [A5 + 0x2FA /* export_91 */]
000002C0 4EAD 02DA jsr [A5 + 0x2DA /* export_87 */]
label000002C4:
000002C4 2E0B move.l D7, A3
000002C6 6702 beq +0x4 /* 000002CA */
000002C8 6120 bsr +0x22 /* 000002EA */
label000002CA:
000002CA 6108 bsr +0xA /* 000002D4 */
000002CC 4E5E unlink A6
000002CE 536D FE36 subq.w [A5 - 0x1CA], 1
000002D2 4E75 rts
fn000002D4:
000002D4 2F08 move.l -[A7], A0
000002D6 6172 bsr +0x74 /* 0000034A */
000002D8 426D F388 clr.w [A5 - 0xC78]
000002DC 2B4A F388 move.l [A5 - 0xC78], A2
000002E0 A00B syscall Rename/PBHRename/HRename
000002E2 6100 0482 bsr +0x484 /* 00000766 */
000002E6 205F movea.l A0, [A7]+
000002E8 4E75 rts
fn000002EA:
000002EA 2F08 move.l -[A7], A0
000002EC 615C bsr +0x5E /* 0000034A */
000002EE 426D F388 clr.w [A5 - 0xC78]
000002F2 A00C syscall GetFileInfo/PBHGetFInfo/HGetFileInfo
000002F4 6100 0470 bsr +0x472 /* 00000766 */
000002F8 4EAD 008A jsr [A5 + 0x8A /* export_13 */]
000002FC 0C42 0005 cmpi.w D2, 0x5
00000300 6502 bcs +0x4 /* 00000304 */
00000302 7404 moveq.l D2, 0x04
label00000304:
00000304 43ED F38C lea.l A1, [A5 - 0xC74]
00000308 4291 clr.l [A1]
0000030A 5342 subq.w D2, 1
0000030C 6506 bcs +0x8 /* 00000314 */
label0000030E:
0000030E 12DB move.b [A1]+, [A3]+
00000310 51CA FFFC dbf D2, -0x6 /* 0000030E */
label00000314:
00000314 A00D syscall SetFileInfo/PBHSetFInfo/HSetFileInfo
00000316 6100 044E bsr +0x450 /* 00000766 */
0000031A 205F movea.l A0, [A7]+
0000031C 4E75 rts
fn0000031E:
0000031E 48E7 2050 movem.l -[A7], D2,A1,A3
00000322 4EAD 0472 jsr [A5 + 0x472 /* export_138 */]
00000326 4EAD 02FA jsr [A5 + 0x2FA /* export_91 */]
0000032A 4EAD 008A jsr [A5 + 0x8A /* export_13 */]
0000032E 0C42 0100 cmpi.w D2, 0x100
00000332 6400 02FC bcc +0x2FE /* 00000630 */
00000336 12C2 move.b [A1]+, D2
00000338 6700 02F6 beq +0x2F8 /* 00000630 */
0000033C 5342 subq.w D2, 1
label0000033E:
0000033E 12DB move.b [A1]+, [A3]+
00000340 51CA FFFC dbf D2, -0x6 /* 0000033E */
00000344 4CDF 0A04 movem.l D2,A1,A3, [A7]+
00000348 4E75 rts
fn0000034A:
0000034A 41ED ED88 lea.l A0, [A5 - 0x1278]
0000034E 2B48 F37E move.l [A5 - 0xC82], A0
00000352 422D F386 clr.b [A5 - 0xC7A]
00000356 426D F382 clr.w [A5 - 0xC7E]
0000035A 41ED F36C lea.l A0, [A5 - 0xC94]
0000035E 4E75 rts
export_418:
00000360 526D FE36 addq.w [A5 - 0x1CA], 1
00000364 4DFA 000E lea.l A6, [PC + 0xE /* 00000374, value 0x1C001C, cstring "" */]
00000368 DCF6 7000 add.w A6, [A6 + D7.w]
0000036C 4E96 jsr [A6]
0000036E 536D FE36 subq.w [A5 - 0x1CA], 1
00000372 4E75 rts
00000374 001C 001C ori.b [A4]+, 0x1C
00000378 001E 0048 ori.b [A6]+, 0x48 /* 'H' */
0000037C 004E 0168 ori.w A6, 0x168
00000380 02BC 0076 00F6 01A4 01D2 andi.l 0x1A401D2, 0x7600F6
0000038A 0214 0210 andi.b [A4], 0x10
0000038E 02BC 4E75 4283 0C2C 0004 andi.l 0xC2C0004, 0x4E754283
00000398 0000 6714 ori.b D0, 0x14
0000039C 4A6C 0028 tst.w [A4 + 0x28]
000003A0 6618 bne +0x1A /* 000003BA */
000003A2 6100 020A bsr +0x20C /* 000005AE */
000003A6 4A6C 0028 tst.w [A4 + 0x28]
000003AA 660E bne +0x10 /* 000003BA */
label000003AC:
000003AC 76FF moveq.l D3, 0xFFFFFFFF
000003AE 600A bra +0xC /* 000003BA */
000003B0 3E2C 0020 move.w D7, [A4 + 0x20]
000003B4 BE6C 0028 cmp.w D7, [A4 + 0x28]
000003B8 66F2 bne -0xC /* 000003AC */
label000003BA:
000003BA 4E75 rts
000003BC 262C 0022 move.l D3, [A4 + 0x22]
000003C0 4E75 rts
000003C2 48E7 8080 movem.l -[A7], D0,A0
000003C6 6100 026C bsr +0x26E /* 00000634 */
000003CA A011 syscall GetEOF
000003CC 6100 0398 bsr +0x39A /* 00000766 */
000003D0 262D F388 move.l D3, [A5 - 0xC78]
000003D4 0C2C 0002 0000 cmpi.b [A4 + 0x0], 0x2
000003DA 6608 bne +0xA /* 000003E4 */
000003DC 7000 moveq.l D0, 0x00
000003DE 302C 0026 move.w D0, [A4 + 0x26]
000003E2 D680 add.l D3, D0
label000003E4:
000003E4 4CDF 0101 movem.l D0,A0, [A7]+
000003E8 4E75 rts
000003EA 48E7 F280 movem.l -[A7], D0,D1,D2,D3,D6,A0
000003EE 2C00 move.l D6, D0
000003F0 08AC 0001 0003 bclr.b [A4 + 0x3], 0x1
000003F6 0806 0001 btst.b D6, 0x1
000003FA 6606 bne +0x8 /* 00000402 */
000003FC 242C 0022 move.l D2, [A4 + 0x22]
00000400 5282 addq.l D2, 1
label00000402:
00000402 5382 subq.l D2, 1
00000404 6404 bcc +0x6 /* 0000040A */
00000406 4EED 0792 jmp [A5 + 0x792 /* export_238 */]
label0000040A:
0000040A 2942 0022 move.l [A4 + 0x22], D2
0000040E 322C 0020 move.w D1, [A4 + 0x20]
00000412 4EAD 074A jsr [A5 + 0x74A /* export_229 */]
00000416 624E bhi +0x50 /* 00000466 */
00000418 2202 move.l D1, D2
0000041A 426C 000E clr.w [A4 + 0xE]
0000041E 7401 moveq.l D2, 0x01
00000420 6100 0212 bsr +0x214 /* 00000634 */
00000424 A011 syscall GetEOF
00000426 6100 033E bsr +0x340 /* 00000766 */
0000042A 262D F388 move.l D3, [A5 - 0xC78]
0000042E 0806 0000 btst.b D6, 0x0
00000432 6610 bne +0x12 /* 00000444 */
00000434 B681 cmp.l D3, D1
00000436 6402 bcc +0x4 /* 0000043A */
00000438 2203 move.l D1, D3
label0000043A:
0000043A 6100 0214 bsr +0x216 /* 00000650 */
0000043E 6100 016E bsr +0x170 /* 000005AE */
00000442 601C bra +0x1E /* 00000460 */
label00000444:
00000444 B681 cmp.l D3, D1
00000446 620A bhi +0xC /* 00000452 */
00000448 2B41 F388 move.l [A5 - 0xC78], D1
0000044C A012 syscall SetEOF
0000044E 6100 0316 bsr +0x318 /* 00000766 */
label00000452:
00000452 6100 01FC bsr +0x1FE /* 00000650 */
00000456 396C 0020 0026 move.w [A4 + 0x26], [A4 + 0x20]
0000045C 6100 0130 bsr +0x132 /* 0000058E */
label00000460:
00000460 4CDF 014F movem.l D0,D1,D2,D3,D6,A0, [A7]+
00000464 4E75 rts
label00000466:
00000466 4EED 0182 jmp [A5 + 0x182 /* export_44 */]
0000046A 48E7 FE58 movem.l -[A7], D0,D1,D2,D3,D4,D5,D6,A1,A3,A4
0000046E 4A41 tst.w D1
00000470 6604 bne +0x6 /* 00000476 */
00000472 323C 0080 move.w D1, 0x80
label00000476:
00000476 0641 0018 addi.w D1, 0x18
0000047A 343C 00FF move.w D2, 0xFF
0000047E 1A02 move.b D5, D2
00000480 3C3C 000E move.w D6, 0xE
00000484 4EAD 05B2 jsr [A5 + 0x5B2 /* export_178 */]
00000488 2B4C F06E move.l [A5 - 0xF92], A4
0000048C 0441 0018 subi.w D1, 0x18
00000490 3941 0020 move.w [A4 + 0x20], D1
00000494 426C 000E clr.w [A4 + 0xE]
00000498 42AC 0022 clr.l [A4 + 0x22]
0000049C 426C 0026 clr.w [A4 + 0x26]
000004A0 426C 0028 clr.w [A4 + 0x28]
000004A4 6100 015E bsr +0x160 /* 00000604 */
000004A8 224B movea.l A1, A3
000004AA 6100 01CA bsr +0x1CC /* 00000676 */
000004AE 0C2C 0008 0000 cmpi.b [A4 + 0x0], 0x8
000004B4 670E beq +0x10 /* 000004C4 */
000004B6 0C2C 0001 0000 cmpi.b [A4 + 0x0], 0x1
000004BC 6614 bne +0x16 /* 000004D2 */
000004BE 6100 00EE bsr +0xF0 /* 000005AE */
000004C2 600E bra +0x10 /* 000004D2 */
label000004C4:
000004C4 197C 0002 0000 move.b [A4 + 0x0], 0x2
000004CA 7402 moveq.l D2, 0x02
000004CC 4281 clr.l D1
000004CE 6100 0180 bsr +0x182 /* 00000650 */
label000004D2:
000004D2 42AD F06E clr.l [A5 - 0xF92]
000004D6 4CDF 1A7F movem.l D0,D1,D2,D3,D4,D5,D6,A1,A3,A4, [A7]+
000004DA 4E75 rts
000004DC 48E7 E0C0 movem.l -[A7], D0,D1,D2,A0,A1
000004E0 0C2C 0002 0000 cmpi.b [A4 + 0x0], 0x2
000004E6 660A bne +0xC /* 000004F2 */
000004E8 4A6C 0026 tst.w [A4 + 0x26]
000004EC 6704 beq +0x6 /* 000004F2 */
000004EE 6100 009E bsr +0xA0 /* 0000058E */
label000004F2:
000004F2 6100 0140 bsr +0x142 /* 00000634 */
000004F6 A045 syscall FlushFile
000004F8 6100 026C bsr +0x26E /* 00000766 */
000004FC A001 syscall Close
000004FE 6100 0266 bsr +0x268 /* 00000766 */
00000502 42AD F37E clr.l [A5 - 0xC82]
00000506 3B6C 001E F382 move.w [A5 - 0xC7E], [A4 + 0x1E]
0000050C A013 syscall FlushVol
0000050E 6100 0256 bsr +0x258 /* 00000766 */
00000512 4CDF 0307 movem.l D0,D1,D2,A0,A1, [A7]+
00000516 4E75 rts
00000518 4A6C 0028 tst.w [A4 + 0x28]
0000051C 6616 bne +0x18 /* 00000534 */
0000051E 0C2C 0004 0000 cmpi.b [A4 + 0x0], 0x4
00000524 6604 bne +0x6 /* 0000052A */
00000526 4EED 0672 jmp [A5 + 0x672 /* export_202 */]
label0000052A:
0000052A 6100 0082 bsr +0x84 /* 000005AE */
0000052E 4A6C 0028 tst.w [A4 + 0x28]
00000532 6710 beq +0x12 /* 00000544 */
label00000534:
00000534 302C 0026 move.w D0, [A4 + 0x26]
00000538 906C 0028 sub.w D0, [A4 + 0x28]
0000053C 536C 0028 subq.w [A4 + 0x28], 1
00000540 1034 0034 move.b D0, [A4 + D0.w + 0x34]
label00000544:
00000544 4E75 rts
label00000546:
00000546 2F01 move.l -[A7], D1
00000548 322C 0026 move.w D1, [A4 + 0x26]
0000054C B26C 0020 cmp.w D1, [A4 + 0x20]
00000550 6610 bne +0x12 /* 00000562 */
00000552 0C2C 0004 0000 cmpi.b [A4 + 0x0], 0x4
00000558 6604 bne +0x6 /* 0000055E */
0000055A 4EED 0672 jmp [A5 + 0x672 /* export_202 */]
label0000055E:
0000055E 612E bsr +0x30 /* 0000058E */
00000560 4241 clr.w D1
label00000562:
00000562 0C00 0020 cmpi.b D0, 0x20 /* ' ' */
00000566 6504 bcs +0x6 /* 0000056C */
00000568 526C 000E addq.w [A4 + 0xE], 1
label0000056C:
0000056C 0C00 000D cmpi.b D0, 0xD /* '\r' */
00000570 6604 bne +0x6 /* 00000576 */
00000572 426C 000E clr.w [A4 + 0xE]
label00000576:
00000576 1980 1034 move.b [A4 + D1.w + 0x34], D0
0000057A 5241 addq.w D1, 1
0000057C 3941 0026 move.w [A4 + 0x26], D1
00000580 221F move.l D1, [A7]+
00000582 4E75 rts
00000584 700D moveq.l D0, 0x0D
00000586 60BE bra -0x40 /* 00000546 */
00000588 362C 000E move.w D3, [A4 + 0xE]
0000058C 4E75 rts
fn0000058E:
0000058E 48E7 C040 movem.l -[A7], D0,D1,A1
00000592 7200 moveq.l D1, 0x00
00000594 322C 0026 move.w D1, [A4 + 0x26]
00000598 43EC 0034 lea.l A1, [A4 + 0x34]
0000059C 426C 0026 clr.w [A4 + 0x26]
000005A0 6100 01EC bsr +0x1EE /* 0000078E */
000005A4 52AC 0022 addq.l [A4 + 0x22], 1
000005A8 4CDF 0203 movem.l D0,D1,A1, [A7]+
000005AC 4E75 rts
fn000005AE:
000005AE 48E7 C040 movem.l -[A7], D0,D1,A1
000005B2 52AC 0022 addq.l [A4 + 0x22], 1
000005B6 7200 moveq.l D1, 0x00
000005B8 322C 0020 move.w D1, [A4 + 0x20]
000005BC 43EC 0034 lea.l A1, [A4 + 0x34]
000005C0 6100 01A8 bsr +0x1AA /* 0000076A */
000005C4 6606 bne +0x8 /* 000005CC */
000005C6 08EC 0001 0003 bset.b [A4 + 0x3], 0x1
label000005CC:
000005CC 3940 0028 move.w [A4 + 0x28], D0
000005D0 3940 0026 move.w [A4 + 0x26], D0
000005D4 4CDF 0203 movem.l D0,D1,A1, [A7]+
000005D8 4E75 rts
export_419:
000005DA 526D FE36 addq.w [A5 - 0x1CA], 1
000005DE 48E7 8048 movem.l -[A7], D0,A1,A4
000005E2 286D F072 movea.l A4, [A5 - 0xF8E]
000005E6 2F01 move.l -[A7], D1
000005E8 7201 moveq.l D1, 0x01
000005EA 7401 moveq.l D2, 0x01
000005EC 6162 bsr +0x64 /* 00000650 */
000005EE 221F move.l D1, [A7]+
000005F0 224B movea.l A1, A3
000005F2 6100 0176 bsr +0x178 /* 0000076A */
000005F6 D7C0 add.l A3, D0
000005F8 536D FE36 subq.w [A5 - 0x1CA], 1
000005FC B081 cmp.l D0, D1
000005FE 4CDF 1201 movem.l D0,A1,A4, [A7]+
00000602 4E75 rts
fn00000604:
00000604 48E7 A040 movem.l -[A7], D0,D2,A1
00000608 266D F068 movea.l A3, [A5 - 0xF98]
0000060C 4EAD 008A jsr [A5 + 0x8A /* export_13 */]
00000610 5382 subq.l D2, 1
00000612 671C beq +0x1E /* 00000630 */
00000614 0C42 00FF cmpi.w D2, 0xFF
00000618 6216 bhi +0x18 /* 00000630 */
0000061A 2002 move.l D0, D2
0000061C D7C2 add.l A3, D2
0000061E 224B movea.l A1, A3
00000620 528B addq.l A3, 1
label00000622:
00000622 1721 move.b -[A3], -[A1]
00000624 51C8 FFFC dbf D0, -0x6 /* 00000622 */
00000628 1682 move.b [A3], D2
0000062A 4CDF 0205 movem.l D0,D2,A1, [A7]+
0000062E 4E75 rts
label00000630:
00000630 4EED 079A jmp [A5 + 0x79A /* export_239 */]
fn00000634:
00000634 3B6C 001C F384 move.w [A5 - 0xC7C], [A4 + 0x1C]
0000063A 426D F398 clr.w [A5 - 0xC68]
0000063E 42AD F39A clr.l [A5 - 0xC66]
00000642 426D F388 clr.w [A5 - 0xC78]
00000646 42AD F394 clr.l [A5 - 0xC6C]
0000064A 41ED F36C lea.l A0, [A5 - 0xC94]
0000064E 4E75 rts
fn00000650:
00000650 48E7 0080 movem.l -[A7], A0
00000654 42AD F390 clr.l [A5 - 0xC70]
00000658 42AD F38C clr.l [A5 - 0xC74]
0000065C 61D6 bsr -0x28 /* 00000634 */
0000065E 3B42 F398 move.w [A5 - 0xC68], D2
00000662 2B41 F39A move.l [A5 - 0xC66], D1
00000666 A044 syscall SetFPos
00000668 6100 00FC bsr +0xFE /* 00000766 */
0000066C 202D F394 move.l D0, [A5 - 0xC6C]
00000670 4CDF 0100 movem.l A0, [A7]+
00000674 4E75 rts
fn00000676:
00000676 48E7 C0E0 movem.l -[A7], D0,D1,A0,A1,A2
0000067A 41ED F36C lea.l A0, [A5 - 0xC94]
0000067E 2B49 F37E move.l [A5 - 0xC82], A1
00000682 426D F382 clr.w [A5 - 0xC7E]
00000686 422D F386 clr.b [A5 - 0xC7A]
0000068A 4A2D F31C tst.b [A5 - 0xCE4]
0000068E 6710 beq +0x12 /* 000006A0 */
00000690 422D F31C clr.b [A5 - 0xCE4]
00000694 3B6D F314 F382 move.w [A5 - 0xC7E], [A5 - 0xCEC]
0000069A 1B6D F31D F386 move.b [A5 - 0xC7A], [A5 - 0xCE3]
label000006A0:
000006A0 7000 moveq.l D0, 0x00
000006A2 102D F06C move.b D0, [A5 - 0xF94]
000006A6 45FA 00AA lea.l A2, [PC + 0xAA /* 00000752, value 0x1020000 */]
000006AA 1B72 00FF F387 move.b [A5 - 0xC79], [A2 + D0.w - 0x1]
000006B0 0C00 0002 cmpi.b D0, 0x2
000006B4 6652 bne +0x54 /* 00000708 */
000006B6 42AD F388 clr.l [A5 - 0xC78]
000006BA A000 syscall Open/PBHOpen/HOpen
000006BC 4A40 tst.w D0
000006BE 6612 bne +0x14 /* 000006D2 */
000006C0 42AD F388 clr.l [A5 - 0xC78]
000006C4 A012 syscall SetEOF
000006C6 3F00 move.w -[A7], D0
000006C8 A001 syscall Close
000006CA 301F move.w D0, [A7]+
000006CC 6100 0098 bsr +0x9A /* 00000766 */
000006D0 6006 bra +0x8 /* 000006D8 */
label000006D2:
000006D2 A008 syscall Create/PBHCreate/HCreate
000006D4 6100 0090 bsr +0x92 /* 00000766 */
label000006D8:
000006D8 A00C syscall GetFileInfo/PBHGetFInfo/HGetFileInfo
000006DA 6100 008A bsr +0x8C /* 00000766 */
000006DE 42AD F390 clr.l [A5 - 0xC70]
000006E2 45FA 0076 lea.l A2, [PC + 0x76 /* 0000075A, value 0x54455854 'TEXT' */]
000006E6 7000 moveq.l D0, 0x00
000006E8 4A6C 0006 tst.w [A4 + 0x6]
000006EC 6610 bne +0x12 /* 000006FE */
000006EE 2B7C 4D53 4242 F390 move.l [A5 - 0xC70], 0x4D534242 /* 'MSBB' */
000006F6 7000 moveq.l D0, 0x00
000006F8 102D F31F move.b D0, [A5 - 0xCE1]
000006FC E540 asl D0.w, 2
label000006FE:
000006FE 2B72 0000 F38C move.l [A5 - 0xC74], [A2 + D0.w]
00000704 A00D syscall SetFileInfo/PBHSetFInfo/HSetFileInfo
00000706 615E bsr +0x60 /* 00000766 */
label00000708:
00000708 42AD F388 clr.l [A5 - 0xC78]
0000070C A000 syscall Open/PBHOpen/HOpen
0000070E 396D F384 001C move.w [A4 + 0x1C], [A5 - 0xC7C]
00000714 4A40 tst.w D0
00000716 6718 beq +0x1A /* 00000730 */
00000718 0C40 FFD5 cmpi.w D0, 0xFFD5
0000071C 6648 bne +0x4A /* 00000766 */
0000071E 0C2D 0004 F06C cmpi.b [A5 - 0xF94], 0x4
00000724 67AC beq -0x52 /* 000006D2 */
00000726 0C2D 0008 F06C cmpi.b [A5 - 0xF94], 0x8
0000072C 67A4 beq -0x5A /* 000006D2 */
0000072E 6036 bra +0x38 /* 00000766 */
label00000730:
00000730 2279 0000 034E movea.l A1, [0x0000034E /* FCBSPtr */]
00000736 7000 moveq.l D0, 0x00
00000738 302D F384 move.w D0, [A5 - 0xC7C]
0000073C D3C0 add.l A1, D0
0000073E D3FC 0000 0014 add.l A1, 0x14
00000744 2251 movea.l A1, [A1]
00000746 3969 004E 001E move.w [A4 + 0x1E], [A1 + 0x4E]
0000074C 4CDF 0703 movem.l D0,D1,A0,A1,A2, [A7]+
00000750 4E75 rts
00000752 0102 btst D2, D0
00000754 0000 0000 ori.b D0, 0x0
00000758 0002 5445 ori.b D2, 0x45 /* 'E' */
0000075C 5854 addq.w [A4], 4
0000075E 4D53 chk.w D6, [A3]
00000760 4243 clr.w D3
00000762 4D53 chk.w D6, [A3]
00000764 4244 clr.w D4
fn00000766:
00000766 4EED 0842 jmp [A5 + 0x842 /* export_260 */]
fn0000076A:
0000076A 48E7 0080 movem.l -[A7], A0
0000076E 2B41 F390 move.l [A5 - 0xC70], D1
00000772 2B49 F38C move.l [A5 - 0xC74], A1
00000776 6100 FEBC bsr -0x142 /* 00000634 */
0000077A A002 syscall Read
0000077C 0C40 FFD9 cmpi.w D0, 0xFFD9
00000780 6702 beq +0x4 /* 00000784 */
00000782 6128 bsr +0x2A /* 000007AC */
label00000784:
00000784 202D F394 move.l D0, [A5 - 0xC6C]
00000788 4CDF 0100 movem.l A0, [A7]+
0000078C 4E75 rts
fn0000078E:
0000078E 48E7 0080 movem.l -[A7], A0
00000792 2B41 F390 move.l [A5 - 0xC70], D1
00000796 2B49 F38C move.l [A5 - 0xC74], A1
0000079A 6100 FE98 bsr -0x166 /* 00000634 */
0000079E A003 syscall Write
000007A0 610A bsr +0xC /* 000007AC */
000007A2 202D F394 move.l D0, [A5 - 0xC6C]
000007A6 4CDF 0100 movem.l A0, [A7]+
000007AA 4E75 rts
fn000007AC:
000007AC 61B8 bsr -0x46 /* 00000766 */
000007AE 2E2D F394 move.l D7, [A5 - 0xC6C]
000007B2 BEAD F390 cmp.l D7, [A5 - 0xC70]
000007B6 6708 beq +0xA /* 000007C0 */
000007B8 343C 0039 move.w D2, 0x39 /* '9' */
000007BC 4EED 0042 jmp [A5 + 0x42 /* export_4 */]
label000007C0:
000007C0 4E75 rts
